Лабораторная работа № 10

Использование системного времени

Список лабораторных работ

Цели и задачи: Научиться разрабатывать приложения, использующие функции системного времени ( см. файл Timer.exe).

Этапы работы:

1. Создайте проект Timer.dpr в папке Время. Имеющейся форме сопоставьте файл Form_Time.pas. Форму назовите fmTime. Задайте для нее соответствующий заголовок и стиль границы – bsDialog.

2. Разместите на форме (см. рис.)

а) компонент Timer (на панели System), который назовите Timer. Это невизуальный компонент, поэтому его можно разместить в любом месте формы.

б) два компонента типа Label – Дата и Время.

в) два компонента типа StaticText (на панели Additional), которые назовите stDate и stTime соответственно.

3. Выполнив двойной щелчок на событии формы OnCreate, опишите процедуру TfmTime.FormCreate следующим образом:

stDate.Caption:=DateToStr(Now);

stTime.Caption:=TimeToStr(Now);

4. Для компонента Timer событию OnTimer сопоставьте только что созданную процедуру FormCreate.

5. Запустите программу.